program programa;
var a:real;
    b:boolean;
    c:string;

procedure proc1();
var x:integer;
begin
	writeln("Teste!")
end
aspect 
	aspecto1
		begin
			writeln("Aspecto!")
		end
	before proc1 : aspecto1;

begin
	a := 10.5;
	b:=true;
	if  b && true then
		c := "na nossa linguagem temos real, booleano, char, integer e string!"	
end.
